﻿Imports System.Web.SessionState

Public Class Global_asax
    Inherits System.Web.HttpApplication

    Public isInit As Boolean = False


    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        '    listofmandate = ReadAllUsersFromXMLFile()
        AutomaticUploadToBackYardServer.InitTimer()
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session is started
        If listofmandate.Count > 0 Then
            listofmandate.Clear()
            listofmandate = ReadAllUsersFromXMLFile()
        End If
        AppDomain.CurrentDomain.SetData("SQLServerCompactEditionUnderWebHosting", True)
        AutomaticUploadToBackYardServer.InitTimer()
    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
        AutomaticUploadToBackYardServer.InitTimer()
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires upon attempting to authenticate the use
        AutomaticUploadToBackYardServer.InitTimer()
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        REM hier einen anderen service aufrufen und die xml datei auf einen anderen server verschieben...
        'My.Computer.FileSystem.WriteAllText(files, "ApplicationError: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)
        'My.Computer.FileSystem.WriteAllText(files, "ApplicationError: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)
        ' Debug.WriteLine("ApplicationError: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays()) ' UploadMandateFileToBackFallServer())
        'Debug.WriteLine("ApplicationError: " & CombineCurrentVersionOfMandateWithBackUpVersionMandate())
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session ends
        REM hier einen anderen service aufrufen und die xml datei auf einen anderen server verschieben...
        '    Debug.WriteLine("SessionEnded: " & UploadMandateFileToBackFallServer())
        'My.Computer.FileSystem.WriteAllText(files, "Session Ended: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)
        'My.Computer.FileSystem.WriteAllText(files, "Session Ended: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)

    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        REM hier einen anderen service aufrufen und die xml datei auf einen anderen server verschieben...
        'Debug.WriteLine("ApplicationEnded: " & UploadMandateFileToBackFallServer())
        'My.Computer.FileSystem.WriteAllText(files, "Application Ended: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)
        'My.Computer.FileSystem.WriteAllText(files, "Application Ended: " & Date.Now.ToString & " Combining Arbeitsaufzeichnungen: " & CombineCurrentVersionOfArbeitsaufzeichnungenWithBackUpVersionWorkdays() & ";" & vbCrLf, True)

    End Sub

End Class